home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 October / Macworld (1998-10).dmg / Serious Demos / Agamik BarCoding / Agamik BarCoder Demo 3.03 / Agamik BarCoder Demo 3.03.rsrc / STR#_4013.txt < prev    next >
Text File  |  1998-05-23  |  3KB  |  165 lines
  1. 0 O
  2.  
  3. 0 A
  4.  
  5. %%EndSetup
  6.  
  7. Agamik_Barcoder /initialize get exec
  8.  
  9. Agamik_cmykcolor /initialize get exec
  10.  
  11. %%BeginSetup
  12.  
  13. %%EndProlog
  14.  
  15. %%EndProcSet
  16.  
  17. setpacking
  18.  
  19. currentdict readonly pop end
  20.  
  21. currentdict readonly pop end
  22.  
  23. /setcustomcolor { 2 npop } bind def
  24.  
  25. /setcmykcolor { 4 npop } bind def
  26.  
  27. /setgray { pop } bind def
  28.  
  29. nc begin
  30.  
  31. /nc 3 dict def
  32.  
  33. /A { pop } def
  34.  
  35. /_lp /none ddef } def
  36.  
  37. restore 5 npop newpath } ddef
  38.  
  39. { pop 8 copy 3 npop ss } ifelse grestore pop } for pop } for
  40.  
  41. 11 copy 6 npop 3 -1 roll pop patternashowstroke }
  42.  
  43. { pop } ifelse 2 copy 1 add get dup _ ne { aload pop findfont _sm
  44.  
  45. { gsave 2 copy get dup _ ne { cvx exec _sc }
  46.  
  47. { /_sd exch _sdd exch get ddef _sd 0 2 _sd length 2 sub
  48.  
  49. /_pss { save 0 1 _sdd length 1 sub
  50.  
  51. restore newpath } ddef
  52.  
  53. { pop stroke } ifelse grestore pop } for pop } for
  54.  
  55. { aload pop findfont _sm patternstroke }
  56.  
  57. { pop } ifelse 2 copy 1 add get dup _ ne
  58.  
  59. { gsave 2 copy get dup _ ne { cvx exec _sc }
  60.  
  61. { /_sd exch _sdd exch get ddef _sd 0 2 _sd length 2 sub
  62.  
  63. /_ps { save 0 1 _sdd length 1 sub
  64.  
  65. _pd exch get /_sdd exch ddef
  66.  
  67. _pm astore sc neg _pm rotate sc
  68.  
  69. exch dup sin exch cos div 1 0 0 1 0 6 2 roll
  70.  
  71. { pop } ifelse dup _pm rotate sc
  72.  
  73. { dup _pm rotate sc 1 -1 _pm scale sc neg _pm rotate sc }
  74.  
  75. 7 -2 roll _pm scale sc 5 -1 roll _pm rotate sc 4 -2 roll exch 0 ne
  76.  
  77. /P { /_sm exch ddef 9 -2 roll _pm translate sc
  78.  
  79. /sc { _sm dup concatmatrix pop } def
  80.  
  81. /_lp /none ddef } def
  82.  
  83. restore 4 npop newpath } ddef
  84.  
  85. grestore pop } for pop } for
  86.  
  87. { pop 7 copy 3 npop exch pop ashow } ifelse
  88.  
  89. aload pop findfont _fm 10 copy 6 npop exch pop patternashow }
  90.  
  91. 2 copy 1 add get dup _ ne {
  92.  
  93. { pop } ifelse
  94.  
  95. { gsave 2 copy get dup _ ne { cvx exec _fc }
  96.  
  97. { /_fd exch _fdd exch get ddef _fd 0 2 _fd length 2 sub
  98.  
  99. /_psf { save 0 1 _fdd length 1 sub
  100.  
  101. restore newpath } ddef
  102.  
  103. { pop fill } ifelse grestore pop } for pop } for
  104.  
  105. { aload pop findfont _fm patternfill }
  106.  
  107. { pop } ifelse 2 copy 1 add get dup _ ne
  108.  
  109. gsave 2 copy get dup _ ne { cvx exec _fc }
  110.  
  111. { /_fd exch _fdd exch get ddef _fd 0 2 _fd length 2 sub {
  112.  
  113. /_pf { save 0 1 _fdd length 1 sub
  114.  
  115. _pd exch get /_fdd exch ddef
  116.  
  117. _pm astore fc neg _pm rotate fc
  118.  
  119. exch dup sin exch cos div 1 0 0 1 0 6 2 roll
  120.  
  121. { pop } ifelse dup _pm rotate fc
  122.  
  123. { dup _pm rotate fc 1 -1 _pm scale fc neg _pm rotate fc}
  124.  
  125. 5 -1 roll _pm rotate fc 4 -2 roll exch 0 ne
  126.  
  127. 9 -2 roll _pm translate fc 7 -2 roll _pm scale fc
  128.  
  129. /p { /_fm exch ddef
  130.  
  131. /fc { _fm dup concatmatrix pop } def
  132.  
  133. end xput } def
  134.  
  135. null dp _n _dd /_pd
  136.  
  137. _d exch _x 1 add exch put } if } for } for
  138.  
  139. _fn _c false dp
  140.  
  141. _fn 12 _n putinterval
  142.  
  143. /_y _y 1 add def
  144.  
  145. _y _fn cvs pop
  146.  
  147. /_fn 12 _n length add string def
  148.  
  149. /restore cvx ] cvx
  150.  
  151. _c { /end cvx } if
  152.  
  153. { {exec} /forall cvx } ifelse
  154.  
  155. _r dup type /stringtype eq{ cvx }
  156.  
  157. { nc /begin cvx } if
  158.  
  159. [ /save cvx _llx neg _lly neg /translate cvx _c
  160.  
  161. _r _ ne { _urx _llx sub _ury _lly sub [1 0 0 1 0 0] 
  162.  
  163. /_c _d _x get _ ne def /_r _d _x 1 add get cvlit def
  164.  
  165.